Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim nameArr
    Dim nameStr As String
    sign = "、"
    nameStr = ActiveCell.Value
    nameStr = Replace(nameStr, ",", sign)
    nameStr = Replace(nameStr, "，", sign)
    nameArr = Split(Replace(nameStr, " ", ""), sign)
    MsgBox UBound(nameArr) - LBound(nameArr) + 1
End Sub